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-- file DILiterals.Mesa 
-- last modified by 

Sandman, April 9, 1978 1:16 AM 

Barbara, June 21, 1978 3:03 PM 

DIRECTORY 

DILitDefs: FROM "dilitdefs" USING [ 

HalfPage, LTIndex, LTNull, LTRecord, STIndex, STNull, STRecord], 
ForgotDefs: FROM "forgotdefs" USING [LowHalf], 
StringDefs: FROM "stringdefs" USING [ 

EqualSubStrings, Substring, SubStringDescriptor] , 
SystemDefs: FROM "systemdef s" USING [AllocateResidentPages , FreePages]; 

DILiterals: PROGRAM 

IMPORTS StringDefs, SystemDefs 

EXPORTS DILitDefs 

SHARES DILitDefs ■ PUBLIC 

BEGIN OPEN DILitDefs; 

tableopen: PRIVATE BOOLEAN <- FALSE; 

LitTablnit: PROCEDURE - 

BEGIN -- called to set up the compiler's literal table 

Iti: LTIndex; 

slti: STIndex; 

p: POINTER; 

IF tableopen THEN LitTabErase[] ; 

p <- SystemDefs .Al locateResidentPages[l]; 

litTable <- L00PHOLE[DESCRIPTOR[p, LAST[LTIndex] , LTRecord]]; 

slitTable «- LOOPHOLE[DESCRIPTOR[p+HalfPage, LAST[STIndex] , STRecord]]; 

FOR Iti IN LTIndex DO 

litTable[lti] <- LTRecord[f ree: TRUE, link: LTNull, datum: ]; 

ENDLOOP; 
FOR slti IN STIndex DO 

slitTable[slti] <- STRecord[f ree: TRUE, link: STNull, string: NullDesc]; 

ENDLOOP; 
tableopen *- TRUE; 
free «- LAST[LTIndex] ; 
frees! *- LAST[STIndex]; 
RETURN 
END; 

LitTabErase: PROCEDURE - 

BEGIN -- closes the symbol table blocks 

tableopen «- FALSE; 

SystemDefs. FreePages [BASE[ litTable]]; 

RETURN 

END; 

-- literal table management 

litTable: PRIVATE DESCRIPTOR FOR ARRAY LTIndex OF LTRecord; 

free: PRIVATE LTIndex «- LAST[LTIndex] ; -- for finding free slot 

TooManyLiterals: SIGNAL - CODE; 

FindLiteral: PROCEDURE [v: WORD] RETURNS [Iti: LTIndex] - 
BEGIN 

Iti <- hash[v]; 
IF litTable[lti].free THEN 
BEGIN 

1 itTable[l ti] <- LTRecord[f ree: FALSE, link: LTNull, datum: short[value: v, unused:]]; 
RETURN 
END; 
FOR Iti <- Ui, litTable[lti].link DO 
WITH l:litTable[Ui] SELECT FROM 

short »> IF Lvalue - v THEN RETURN; 
ENDCASE; 
IF litTable[lti].link ■ LTNull THEN EXIT; 
FNDLOOP; 
UNTIL free - LTNull DO 

IF 1 itTable[free]. free THEN 
BEGIN 
1 UTable[lti].link «- free; 
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1 itTable[free] *- [free: FALSE, link: LTNull, datum: short[value: v, unused:]]; 
U1 ♦- free; 
free <- free - 1; 
RETURN[Ui]; 
END 
ELSE free <- free - 1; 
ENDLOOP; 
ERROR TooManyLiterals; 
END; 

FindLongLiteral: PROCEDURE [v: LONG INTEGER] RETURNS [Hi: LTIndex] - 
BEGIN 

lti *- hash[ForgotDefs.LowHalf[v]]; 
IF !1tTable[lti].fpee THEN 
BEGIN 

litTable[lti] <- LTRecord[f ree: FALSE, link: LTNull, datum: long[value: v]]; 
RETURN 
END; 
FOR lti <- Ui, litTable[lti].link DO 
WITH l:litTable[lti] SELECT FROM 
long -> IF Lvalue ■ v THEN RETURN; 
ENDCASE; 
IF litTable[lti].link - LTNull THEN EXIT; 
ENDLOOP; 
UNTIL free - LTNull DO 

IF litTable[free].free THEN 
BEGIN 

litTable[lti].link <- free; 

litTable[free] <- [free: FALSE, link: LTNull, datum: long[value: v]]; 
lti «- free; 
free «- free - 1; 
RETURN[lti]; 
END 
ELSE free «- free - 1; 
ENDLOOP; 
ERROR TooManyLiterals; 
END; 

LiteralValue: PROCEDURE [lti: LTIndex] RETURNS [WORD] « 
BEGIN 
WITH 1 :litTable[lti] SELECT FROM 

short *> RETURN[1 .value]; 

ENDCASE «> ERROR; 
END; 

LongLiteralValue: PROCEDURE [lti: LTIndex] RETURNS [LONG INTEGER] « 
BEGIN 

WITH 1 :litTable[lti] SELECT FROM 
long => RETURN[1. value]; 
ENDCASE => ERROR; 
END; 

hash: PRIVATE PROCEDURE [value: WORD] RETURNS [LTIndex] - 
BEGIN 

RETURN[(value MOD LAST[LTIndex]) + 1]; 
END; 

-- string literal table management 

slitTable: PRIVATE DESCRIPTOR FOR ARRAY STIndex OF STRecord; 

frees!: PRIVATE STIndex <- LAST[STIndex]; -- for finding free slot 

TooManyStringLiterals: SIGNAL « CODE; 

FindStringLiteral : PROCEDURE [s: StringDefs .Substring] RETURNS [slti: STIndex] - 
BEGIN 

slti <- shash[s]; 
IF slitTable[slti].free THEN 

BEGIN 

slitTable[slti] <- STRecord[f ree: FALSE, link: LTNull, string: st]; 

RETURN 

END; 
FOR slti *- slti, slitTable[slti].link DO 

IF StringDefs. Equa1SubStrings[©s1itTable[slti]. string, s] THEN RETURN; 

IF slitTable[slti].link - STNull THEN EXIT; 
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ENDLOOP; 
UNTIL frees! » STNull DO 

IF sl1tTable[frees1].free THEN 
BEGIN 

si itTable[slti].link <- frees!; 

slitTab!e[frees'l] <- STRecord[f ree: FALSE, link: STNull, string: st]; 
slti <- freesl ; 
frees! *- freesl - 1; 
RETURN[slti]; 
END 
ELSE freesl *■ freesl - 1; 
ENDLOOP; 
ERROR TooManyStringLiterals; 
END; 

StringLiteralValue: PROCEDURE [slti: STIndex] RETURNS [StringDefs .Substring] « 
BEGIN 

RETURN[GslitTable[slti]. string] 
END; 

shash: PRIVATE PROCEDURE [s: StringDefs .Substring] RETURNS [STIndex] ■ 
BEGIN 

hash, i: CARDINAL; 
hash «- 0; 
FOR i IN [s. offset .. s .off set+s . length) 

DO hash ♦- hash + LOOPHOLE[s . base[i] , CARDINAL] ENDLOOP; 
RETURN[(hash MOD LAST[STIndex]) + 1] 
END; 

NullDesc: StringDefs .SubStringDescriptor » [base: " ", offset: 0, length: 0]; 

END. 



